﻿Public Class UserInputCompleteForm
    Public userInfo As User = New User
    Private Sub InputCompForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        lblUserID.Text = userInfo.userID
        lblUserName.Text = userInfo.userName
        lblUserType.Text = userInfo.userType

        Select Case userInfo.dispFlg
            Case "I"
                message.Text = "を登録しました。"
            Case "U"
                message.Text = "を更新しました。"
            Case "D"
                message.Text = "を削除しました。"
        End Select
    End Sub
    Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click
        Me.Close()
    End Sub
End Class